   1 .
   2 .MASTER MIND
   3 .
  10 clear ;BC=1;&(0)=1;&(1)=1;&(9)=0;&(2)=5;&(3)=5;@(1)=77;@(2)=65;@(3)=83;@(4)=84;@(5)=69;@(6)=82
  15 NT=0;&(10)=158;CY=-39;for D=1to 6;TV=@(D);next D;for E=-80to -46;for F=-42to -36;if PX(E,F)box (E+82)mul 4-78,(F+44)mul 4,5,5,3
  20 next F;next E;@(1)=32;@(2)=77;@(3)=73;@(4)=78;@(5)=68;@(6)=32;CX=-77;CY=-39;for D=1to 6;TV=@(D);next D
  25 for E=-74to -52;for F=-42to -36;if PX(E,F)box (E+82)mul 4-78,(F+34)mul 4,5,5,3
  27 next F;next E;A=99;gosub 320;FC=132;gosub 330;FC=75;gosub 330;FC=171;gosub 330;FC=19;gosub 330;FC=107;gosub 330;FC=235;gosub 330;FC=5;&(9)=142
  30 &(10)=0;clear ;BC=2;&(0)=0;&(1)=0;box 16,0,29,86,1;for H=0to 176;&(10)=H;next H
  35 NT=0;CX=41;CY=0;print "BEGIN!";M=0;C=-44;for N=1to 4;@(N)=rnd (6);next N;A=500;gosub 320
  40 M=M+1;C=C+8;X=-83;if M=11goto 220
  50 for N=4mul M+1to 4mul M+4
  60 G=KN(1)div 35+4;CX=41;CY=0;if G=7print " C0DE 
  62 if G=1print "YELL0W
  64 if G=2print " RED  
  66 if G=3print "GREEN 
  68 if G=4print "PURPLE
  70 if G=5print "0RANGE
  72 if G=6print " BLUE 
  75 A=99;gosub 320;if TR(1)=0goto 60
  80 X=X+12;CX=X;CY=C;NT=5;MU=49;MU=51;MU=53;MU=56;NT=0;if G=1FC=132;print "Y";@(N)=1;goto 140
  85 if G=2FC=75;print "R";@(N)=2;goto 140
  90 if G=3FC=171;print "G";@(N)=3;goto 140
 100 if G=4FC=19;print "P";@(N)=4;goto 140
 110 if G=5FC=107;print "O";@(N)=5;goto 140
 120 if G=6FC=235;print "B";@(N)=6;goto 140
 130 if G=7goto 220
 140 next N
 145 B=0;W=0;for Z=1to 4;P=Mmul 4+Z;if @(P)=@(Z)B=B+1;@(P)=@(P)+14;@(Z)=@(Z)+7
 150 next Z;for Z=1to 4;P=Mmul 4+Z;for N=1to 4;if Z=Ngoto 180
 160 if @(N)#@(P)goto 180
 170 @(P)=@(P)+14;@(N)=@(N)+7;W=W+1;goto 190
 180 next N
 190 next Z;for N=1to 4;if @(N)>6@(N)=@(N)-7
 200 next N;FC=5;CX=-11;CY=C;print #0,B,;CX=10;print #2,W;NT=9;MU=71;MU=75;MU=75;MU=71;NT=0;if B<4goto 40
 210 CX=50;CY=32;print "Y0U";print ;CX=50;print "W0N";print ;CX=41;print " WITH ";print ;CX=56;print #0,M;print ;if M>1CX=38;print "GUESSES
 212 if M=1CX=44;print "GUESS
 214 NT=1;for I=1to 11-M;for J=60to 80;MU=J;next J;next I;goto 300
 220 CX=47;CY=32;print "THE";print ;CX=45;print "C0DE";print ;CX=41;print " WAS:
 230 NT=15;CX=38;CY=-20;for N=1to 4;Z=@(N);if Z=1print "Y ",
 240 if Z=2print "R ",
 250 if Z=3print "G ",
 260 if Z=4print "P ",
 270 if Z=5print "O ",
 280 if Z=6print "B ",
 290 next N
 300 if TR(1)goto 30
 310 goto 300
 320 for T=0to A;next T;return 
 330 for H=0to 44step 4;&(9)=H;&(9)=H;next H;&(9)=0;return 
>:return 
